home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / mile mic (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  50 lines
  1. 10 poke56,160:poke55,0:clr:dv=peek(186):ifdv<8thendv=8
  2. 20 print"[147][146][158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
  3. 30 [153]"def lenonvert (NULL)iles (NULL)o (NULL)icrons "
  4. 40 [153]"waitusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  5. 50 print"[159][197]nter number of miles: [153]";:li=10:gosub300:ifval(w$)=0then20
  6. 60 print"[158]":m=val(w$):print"="m*.8684"[206]autical miles
  7. 70 [153]"="m[172]1.6093"(NULL)ilometers
  8. 80 print"="m*5280*6"[198]athoms
  9. 90 [153]"="m[172]1609.3"(NULL)eters
  10. 100 print"="m*5380/3"[217]ards
  11. 110 [153]"="m[172]5280"asceet
  12. 120 print"="m*5280*12/5.25"5.25 inch disks
  13. 130 [153]"="m[172]5280[172]12[173]3.5"3.5 inch disks
  14. 140 print"="m*5280*12"[201]nches
  15. 150 [153]"="m[172]5280[172]12[172]2.54"lenentimeters
  16. 160 print"="m*5280*12*25.4"[205]illimeters
  17. 170 [153]"="m[172]5280[172]12[172]25.4[172]1000"(NULL)icrons
  18. 180 print"[211][208][197][197][196]"m*88"[198]eet/[205]inute
  19. 190 [153]"(NULL)(NULL)valvalstr$"m[172]88[172]12"right$nches/(NULL)inute
  20. 200 print"[211][208][197][197][196]"m*88/60"[198]eet/[211]econd
  21. 210 [153]"(NULL)(NULL)valvalstr$"m[172]88[172]12[172]60"right$nches/(NULL)econd
  22. 220 print"[211][208][197][197][196]"m/60"[205]iles/[205]inute
  23. 230 [153]"(NULL)(NULL)valvalstr$"m[173]60[173]60"(NULL)iles/(NULL)econd
  24. 232 print"[205][193][195][200]"(m*88/60)/1088"0[195] sea level
  25. 233 [153]"(NULL)right$chr$left$(NULL)"(m[173]60[173]60)[173]186281.7"
  26. 240 print"[159][193]gain? ([217][159]/[206][159])";
  27. 250 geta$:ifa$<>"y"anda$<>"n"then250
  28. 260 ifa$="y"thenrun
  29. 270 goto50000
  30. 280 stop
  31. 300 w$="":t=0:lw=0:ifli=0thenli=35
  32. 310 geta$:as=asc(a$+chr$(0)):ifti>15thengosub390
  33. 320 if(a$<" "ora$>"z")and(a$<"[193]"ora$>"[218]")andas<>13andas<>20then310
  34. 330 lw=len(w$):ifas=13thent=-1:gosub390:return
  35. 340 iflw=lithenifas<>20andas<>13then310
  36. 350 ifas=20theniflw=0then310
  37. 360 ifas=20thenw$=left$(w$,len(w$)-1):t=0:gosub390:gosub390:print"[146][157] [157]";:goto310
  38. 370 w$=w$+a$:lw=len(w$):poke212,0:print"[146]"a$;:gosub390
  39. 380 goto310
  40. 390 t=nott:poke199,-t:print" [157]";:ti$="000000":return
  41. 10000 close15:open15,8,15,"s:mile mic":close15:save"mile mic",8:stop
  42. 50000 ifpeek(797)<>119then60000
  43. 50010 poke49152,0:poke44,192:poke43,1:poke45,peek(53246):poke46,peek(43249):run
  44. 60000 a$="high basic":fori=8to9:close2:open2,i,2:close2:ifstthen60020
  45. 60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  46. 60020 next:print"[147]":poke186,8:end
  47. 60030 q$=chr$(34):poke646,peek(53281):print"[147]"
  48. 60040 print"[147]p[207]49152,0:p[207]44,192:p[207]43,1:p[207]56,207:p[207]55,252:clr:l[207]"q$a$q$","i
  49. 60050 print"run:":poke631,13:poke632,13:poke198,2:end
  50.